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5 7 
8: RF ..SRCJUNKN_DISP.B32; 


Module UNKN_DISP 
(ZTITLE ‘Unknown Dispatcher’ 
IDENT = ‘V04-000') = 


Begin 


' 
LRA RRR AE AAA E AAA A EERE AEE AAA AAR 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


5 

® 

® 

M ® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERM SUCH LICENSE AND WITH THE ®* 
iw INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
iw COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT + 
i CORPORATION. * 
® 

® 

® 

® 

® 

*® 


i DIGITAL ASSUMES NO RESPONS 
i SOFTWARE ON EQUIPMENT WHIC 
ie 
Lee RARER AAR AEA AA AAA AERA AAA AAAREREREREEE 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
H IS NOT SUPPLIED BY DIGITAL. 


'e¢ 
FACILITY: ERF, Error Log Report Generator 
ABSTRACT: 


This module contains the dispatching routines for outputing 
‘unknown’ entries. 


i 
i 

i 

i 

i 

| ENVIRONMENT : 
: VAX/VMS operating system, user mode. 

AUTHOR: Sharon Reynolds, CREATION DATE: April 1983 
Modified By: 
; 
i 
i 

; 
i 
; 
; 
; 
i 
i 
i 


v03-003 EAD0190 Elliott A. Drayton 66-Jul-1984 
Obtain the value of LSTLUN from SYECOM. 

v03-002 EAD0143 Elliott A. Drayton 12-Apr-1984 
Remove reference to EMBETDEF.REQ. 

v03-001 SARO018 Sharon A. Reynolds, 22-Apr-1983 


Changed references to valid. class,valid_cpu,valid entry, 
and valid_type so they would be accessed via SYECOM. 
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$ 8 p038 1 

; 9 059 1! 

; @& 060 1 ! Require files 

; 6 061 1! 

; 6 O06 1 Require 'SRC$:RECSELDEF.REQ’ ; ' EMB field definitions 
3 or 133 : Require ‘SRCS:ERFDEF.REQ" ; ! ERF common defin itions 
3 669 480 1 Forward routine 

; © 481 1 Unknown_dispatcher: NOVALUE ; 

; 67 04 ; 1 

; Be 1 

: 9 484 1 External routine 

; 0 8 . 3 umpreg, 

: 71 ry 1 poe 

yee 0487 1 Logger. 

5 7 0488 1 nownl, 

wie 0489 1 Unknown? 

s 75 0490 1 UnknownS ; 

s 0491 1 

Tae i 0492 1 

: 78 0495 1 External 

; 79 0494 1 Input_rab: $BBLOCK (J 

; 80 0495 1 Syecom: SBBLOCK PSECT (SYECOM); 
s $81 0496 1 

s 82 0497 1 Own 

F 83 0498 1 Temp buf: PSECT(EMB), 

; (B84 0499 1 Emb_Buf Initial (temp_buf) 
; 89 0500 1 REF $BBLOCK, 

; & 0501 1 Unknown_entry: LONG, 

s 87 B20§ 1 Unknown_device: LONG, 

: 688 503 1 Unknown_cpu: LONG; 

ee -)] 0504 1 

; 0505 1 
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v04- 14-Sep-1984 ERF .SRCJUNKN_DISP.832; 
9 Global Routine UNKNOWN_DISPATCHER: NOVALUE = 
9 Begin 
94 
95 ++ 
96 
44 Functional Description: 
9 This routine dispatches to any module necessary for the output 


of ‘unknown’ entries. 
Calling Sequence: 
Input Parameters: 


Output Parameters: 


' 

i 

i 

i 

i 

i 

i 

i 

i 
Unknown_dispatcher () 
i 

i 

i 

i 

i 

None 
' 
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3 
Unknown_device = $descriptor ('''UNKNOWN DEVICE’ ENTRY’) ; 
Unknown_cpu = S$descriptor ("UNKNOWN CPU'’ ENTRY") ; 


{ 
: Output the first two Lines of the entry header. 
HEADER (syecom{sye$l_lstlun]) ; 


i] 
: Determine what message to output in the entry header. 


FUN OC OONAUEWN “OC OONOUSWN—O0On 
BEES FAWN 


if (.syecom(sye$b_valid_cpu] AND (NOT .syecom(sye$b_valid_entry])) 
en 
' 


: Indicate that this is an unknown entry type. 
LOGGER (syecom{sye$l_lstlun], .unknown_entry) 
e 


Begin 

If’ (-syecomls e$b_valid_cpu)_AND ‘ 
(.emb_buflembSw_hd_éntry) EQL EMBSC_DE OR ! Device error 1 
-emb_BufCemb$w_fd_éntry] EQL EMBSC_BT OR ! Device timeout 96 %x60 
-emb_buflemb$w_hd entry EQL EMBSC_DA) OR ! Device attention 98 %x62 
(NOT .syecom[{sye$B_val duc lass} OR 

- (NOT .syecomlsye$b_valid_typeJ)) 

en 

' 


SOOOSOSOOOSOSOOSSOCOSSSOSOCOSOCSOSSSGOOOoOCOOOOOCOOOOOOCOOOOOOOOOOOOOOOO 
PEPPY PVPUPV SVP IUSUDUSUSUSVUSUSUSYSUSUSVSUSUSVSUSUSUSV SSVI USVSUSUSUST SUSU SUSUS SUSI ISIS ISIS 


1 
! 
! Record_size = Size (bytes) of the entry being processed 
Bind record_size = input_rabCrab$w_rsz] ; 

: Unknown_entry = $descriptor(''‘UNKNOWN ENTRY''') ; 

4 

5 

5 

4 
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i Indicate that this is an unknown device. 


1 
ALS sAane phere VERSIE HESENS UTNE NEGA Po a 


Eset OOGER ‘syecom{sye$l_lstlun], .unknown_device) 


Begin 
If (NOT .syecom(sye$b_valid_cpu]) 
Then | 


ww 


: Indicate that this is an unknown cpu type. 
LOGGER (syecomCsye$l_lstlun], .unknown cpu) ; 


n 
End ; 
' 
: Output the contents of the header packet. 


UNKNOWN] (syecom{sye$l_lstlun]) ; 


AAo 
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i Determine what else in the entry can be translated and call the 
appropriate routine to do so. 
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01 
01 
01 
01 
1 
1 
01 
01 
; 
6 01 
6 01 
6 01 
7 ' 01 
7 If (.emb_bufCemb$w_hd_entry] EQL EMB$C_DE) OR ! Device efror 1 01 
y 3 (.emB_bufCemb$w_hd_entry] EQL EMB$C_DT) ! Device timeout 96 %x60 3 
en 
7 8 ! 01 
7 8 ! 01 
7 9 ! 01 
7 5 UNKNOWN2 (syecom{sye$l_(stlun]) 01 
7 9 lise 01 
7 g Begin | 01 
8 ; If (,emb_bufCemb$w_hd_entry] EQL EMBSC_DA) ' Device attention 98 %x62 | 3 
en 
8 9 : 01 
8 9 ' 01 
9 ' | 01 
9 UNKNOWNS (syecom[sye$l_lstlun]) 01 
p600 Else | at 
060 ' ety else can be translated, output the remainder of the 01 
pebz entry in a longword, hexadecimal format. | a 
. | 
0605 DUMPREG (syecomi ayeSi_tsttund. REF C (CC. record_size + 3)/4) = 4)), 01 
0606 emb_buf(16.070,0]) ; 01 
0607 End ; 01 
0608 01 
0009 i 
0610 End ; ! Routine 


-TITLE UNKN_DISP Unknown Dispatcher 
-IDENT \V04=000\ 


-PSECT SPLIT,NOWRT,NOEXE, PIC,2 


QO P.AAB: ASCII \""UNKNOWN ENTRY''\ : 
OF -BLKB 1 


| 
Return | 
| 
| 


22 59 $2 54 4E 45 20 4E 57 4F GE 4B 4E 55 22 


Vou"000" 
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(45 43 49 56 45 4G 20 4E 57 


45 20 22 55 50 43 20 4E 57 
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Unknown Dispatcher 


04 
08 


000000006 


0060 
0062 
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oul 
-oPF> 


co o 
” 7 


00000000" 
003¢ 

* © 
* 00 9E 
G 00 9% 
04 Ce 
65 9E 
AS 9E 
AS 9E 
53 DD 

01 FB 
AS 9A 

¢ E9 

AS £8 
$e DD 

0 11 

92. £9 

A4 DO 

AO Bi 

AO 81 
10 13 
AO Bl 


WE & PAA 


00000 
00004 


00008 
0000C 
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1 
-Sep-1984 755 
~ge07 1382 §3:38 
P.AAA: .LONG 
ADDRESS 
P.AAD ASCII 
-BLKB 
P.AAC: «LONG 
- ADDRESS 
P.AAF: .ASCII 
-BLKB 
P.AAE: .LONG 
. ADDRESS 
-PSECT 
TEMP_BUF : 
-BLKB 
-PSECT 
EMB BUF : . ADDRESS 
GNEROUN: & NTRY 


LKB 

UNKNOWN DEVICE: 
UNKNOWN_CPU: 

-BLKB 


1$: 


‘ 


\ 

1 

19 
P. AAF 

EMB,NOEXE, SHR, 

4 

SOWNS ,NOEXE, PIC 
TEMP_BUF 

4 


DUMPREG, HEADER 
LOGGER, UNKNOWN? 


UNKNOWN2, UNKNOWN3 


INPUT _RAB, SYECOM 
SCODE,NOWRT, PIC, 


UNKNOWN DISPATCHER, Save R2,R3,R4,R5 
P.AAA, R 


UNKNOWN ENTRY, R4 
areca +39, R3 


75 Ax-11 
39 
15 
P.AAB 
\""UNKNOWN DEVICE'’ ENTRY\ 


- AAD 
"UNKNOWN CPU"’ ENTRY\ 


GBL, 


2 


2 


P.AAA, UNKNOWN_ENTRY 


P.AAC, 


SyECOR DS. R2 


SYECOM+27, 1$ 
te 


R2, 2$ 


UNKNOWN_DEVICE 
a: UNKNOWN_ CPU 


OVR, 


Oh ieen se V4.0-742 
ERF .SRCJUNKN_DISP.B32; 1 


PIC,2 


< 
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COOCCOCOCOCCOOCOCOCOCOCOCOOCOCOCOOCOCOCOOOOOCOOoCOoOO 
VOPR POMIPOMOMOPOPOPIPOPOPOPOPOPO POOP POPOPO POPUP POPOPOPOPOPONOn? 


pejololelololelolelq) 
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Be Be Oe Be Oe Be eee 
nm 


NOVEC, WRT, 
NOVEC, WRT, 
NOVEC ,NOWRT, 
NOVEC ,NOWRT, 


RD ,NOEXE, SHR, GBL 
RD ,NOEXE,NOSHR, LCL 
RD ,NOEXE,NOSHR, LCL 
RD , EXE,NOSHR, LCL 


1 
/UNKN_DISP Unknown Dispatcher 1b-sep-19 4 55 
_v04-000 14-Sep-1984 73 28 
og MEE BRRER on, at 
05 fg AS £8 $086 BLBS 
| 04 Ad OD 0064 3$: PUSHL 
| 06 11 00067 BRB 
| 0c 52 EB 00069 4$: LBS 
08 A& DD 0006C PUSHL 
| 53 DD O06 5$ PUSHL 
000000006 00 0@ FB 00071 CALLS 
| DD 00078 6¢: PUSHL 
000000006 00 01 FB O007A CALLS 
52 FC AG 00 9981 MOVL 
01 04 A2 B1 00085 CMPW 
08 13 00089 BEQL 
| 0060 8F 04 A2 Bi 00088 CMPW 
OA 12 ted BNEQ 
53 DD 00093 7$ PUSHL 
000000006 00 01 FB 00095 CALLS 
04 0009¢ RET 
0062 BF 04 A2 B1 00090 8s CMPW 
| OA 12 000A3 BNEQ 
53 DD 000A5 PUSHL 
000000006 00 01 FB 000A7 CALLS 
04 OOOAE RET 
10 a2 9F OOOAF 9$ PUSHAB 
50 000000006 00 03 C1 000B2 ADDL 
50 04 C6 OOOBA DIVL2 
04 AE FC AO 9E OO0BD MOVAB 
04 AE 9F 000C2 PUSHAB 
53 DD 000C5 PUSHL 
000000006 00 03 FB 000C7 CALLS 
04 OO00CE RET 
; Routine Size: 207 bytes, Routine Base: $CODE + 0000 
: 197 0611 
; 198 0612 1 End ' Module 
: 199 0613 0 ELUDO 
PSECT SUMMARY 
Name Bytes Attributes 


5 
71 
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: g AX-11 Ol fens V4.0-742 
UNKN_DISP.B32;1 


ERF.SRC 


$ 

SYECOM+25, 3$ 
SYECOM+28, 4$ 
UNKNOWN DEVICE 


. 6$ 
UNKNOWN_ CPU 
#2, LOGGER 


#1, UNKNOWN1 
B BUF, R2 
2), #1 


4(R2), #96 


R3 
#1, UNKNOWN2 


4(R2), #98 
9$ 


#1, UNKNOWNS 


16(R2) 

#3, RECORD_SIZE, RO 
#4, RO 

=4(RO), 4(SP) 

4 (SP) 

R3 

#3, DUMPREG 


of yslSMaBDawcew 
A-~A-~ FZ" NII ZN 


Be Se Be Be Se Se Be Se Be Se Ge Be Se Ge Se Se Ge Ge Fe Fe Fe Fe Fe Ge Se Fe Fe Ge Be Fe Fe Be 


< 
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| UNKN_DISP Unknown Dispatcher 5 -se -1984 23:55: AX-11 Bliss-32 V4.0-74 Pa 7 
v04-0 , ~3e8- 138% 43:33:79 YORE SREIUNEN bite B3ee9 nt (2) 
3 Library Statistics 

: eecceeccce Symbols eeesecee Pages Processing 
; File Total Loaded Percent Mapped Time 


-$255$DUA28: CSYSLIBILIB.L32;1 18619 26 0 1000 00:02.0 


Size: 207 code + 104 data bytes 
Run Time: 00:09.0 

Elapsed Time: 00:20.2 

Lines/CPU Min: 4109 

Lexemes/CPU-Min: 24382 

panere Used: 108 pages 

Compila 


| 
| 

| | 

; COMMAND QUALIFIERS 

4 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:UNKN_DISP/OBJ=OBJ$:UNKN_DISP MSRC$:UNKN_DISP/UPDATE=(ENH$:UNKN_DISP) 

tion Complete 

| | 

| 

| | 

| 


< 
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